#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';

my $maximum = max(3,5,10,4,6);
print "$maximum";

sub max {
    my $max_so_far = shift @_;
    foreach my $it (@_) {
        if($it > $max_so_far) {
            $max_so_far = $it;
        }
    }
    $max_so_far
}
